home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abe.d64 / diskmagic.2 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  10KB  |  376 lines
  1. 5 GOTO1530
  2. 10 PRINT "[147][213]NSCRATCH [198]ILES"
  3. 20 U=8:G=0:D=0
  4. 70 PRINT "[201]NSERT [196]ISK AND [200]IT [193]NY [203]EY..."
  5. 80 GET X$: IF X$=""THEN 80
  6. 90 PRINT "[197]NTER SCRATCHED FILE-NAME (OR END)"
  7. 100 PRINT " USE * AT NAME-END FOR WILD-CARD SEARCH"
  8. 110 INPUT " ? END[157][157][157][157][157]";N$: IF N$="END" THEN3998
  9. 120 V=16: Q=32: F=256: T=18: S=1: W=0
  10. 130 Z$=CHR$(0): D$=RIGHT$(STR$(D),1)
  11. 140 N$=LEFT$(N$,V): L=LEN(N$)
  12. 150 IF RIGHT$(N$,1)<>"*" THEN 170
  13. 160 L=L-1: N$=LEFT$(N$,L): W=1:GOTO 190
  14. 170 IF L=V THEN 190
  15. 180 FOR X=L+1 TO V: N$=N$+CHR$(160): NEXT: L=V
  16. 190 OPEN 1,U,15,"I"+D$: GOSUB 500
  17. 200 OPEN 2,U,2,"#": GOSUB 500
  18. 210 PRINT#1,"U1:";2;D;T;S: GOSUB 500
  19. 220 PRINT#1,"B-P:";2;0: GET#2,A$,B$
  20. 230 TR=ASC(A$+Z$): SC=ASC(B$+Z$): H=2
  21. 240 PRINT#1,"B-P:";2;H: GET#2,T$
  22. 250 C=ASC(T$+Z$): IF C>0 THEN 290
  23. 260 GET#2,A$,B$: F$="": FOR X=1 TO V
  24. 270 GET#2,T$: F$=F$+T$: NEXT: IF F$="" THEN 310
  25. 280 IF L=0 OR N$=LEFT$(F$,L) THEN 350
  26. 290 H=H+Q: IF H<F THEN 240
  27. 300 IF TR>0 THEN T=TR: S=SC: GOTO 210
  28. 310 IF W THEN PRINT " END OF DIRECTORY": GOTO 470
  29. 320 PRINT "[212]HERE IS NO SCRATCHED"
  30. 325 PRINT "FILE WITH THE NAME:  ";N$
  31. 330 PRINT "IN THE DIRECTORY"
  32. 340 FOR X=1 TO 4000: NEXT: GOTO 490
  33. 350 A=ASC(A$+Z$): B=ASC(B$+Z$)
  34. 360 PRINT "FOUND FILE:  ";F$
  35. 370 PRINT " AT TRACK";A;" SECTOR";B
  36. 380 PRINT "WANT TO REVIVE THIS FILE (Y/N) ? Y[157][157][157]";
  37. 390 INPUT X$: IF X$="Y" THEN 410
  38. 400 IF W THEN 290
  39. 405 GOTO470
  40. 410 PRINT "1=SEQ  2=PRG  3=USR  4=REL"
  41. 420 PRINT "ENTER FILE-TYPE (1-4) ? 1[157][157][157]";
  42. 430 INPUT P: IF P<1 OR P>4 THEN PRINT "[145][145]": GOTO 400
  43. 440 PRINT#1,"B-P:";2;H: PRINT#2,CHR$(P+128);
  44. 450 PRINT#1,"U2:";2;D;T;S:GOSUB 500:G=1
  45. 460 PRINT "UN-SCRATCHED FILE:  ";F$: IF W THEN 290
  46. 470 PRINT "REVIVE MORE FILES (Y/N) ? Y[157][157][157]";
  47. 480 INPUT X$: IF X$<>"Y" THEN 520
  48. 490 CLOSE 2: CLOSE 1: GOTO 90
  49. 500 INPUT#1,E,M$,J,K:IF E=0 THEN RETURN
  50. 510 PRINT " ERROR: ";E;M$;J;K
  51. 520 CLOSE 2: CLOSE 1: IF G=0 THEN 3998
  52. 530 PRINT "[147][210]E-BUILDING VALID [194][193][205]"
  53. 540 PRINT "ON [196]ISK-[213]NIT";U;" DRIVE";D
  54. 550 OPEN 1,U,15,"V"+D$: CLOSE 1: GOTO3998
  55. 1530 REM INTRODUCTION
  56. 1540 PRINT "[147]";CHR$(14):POKE 657,128
  57. 1550 POKE 53280,0:POKE 53281,0
  58. 1560 :
  59. 1570 FOR X=1 TO 40
  60. 1580 :  PRINT " ";
  61. 1590 NEXT X
  62. 1600 :
  63. 1610 FOR X=1 TO 11
  64. 1620 :  PRINT " ";SPC(38);" ";
  65. 1630 :  PRINT " ";SPC(38);" ";
  66. 1640 NEXT X
  67. 1650 :
  68. 1660 FOR X=1 TO 39
  69. 1670 :  PRINT " ";
  70. 1680 NEXT X
  71. 1690 :
  72. 1700 PRINT "[157]";IN$;"  ";
  73. 1710 :
  74. 1720 L1$="[158][208]ROGRAM [196]ESIGINED [194]Y [212]HE [196]EMON!  "
  75. 1730 L2$="[158][205]ISFIT [205]ANOR 731-9773 "
  76. 1740 P1$=""
  77. 1750 P2$=""
  78. 1760 S=1:F=28
  79. 1770 :
  80. 1780 PRINT "[196]ISKMAGIK ]["
  81. 1790 PRINT "([195]) 1987"
  82. 1791 PRINT "[196]EMON[211]OFT [201]NC."
  83. 1800 :
  84. 1810 :   REM START LOOP
  85. 1820 GET W$:IF W$=" " THEN 1900
  86. 1830 FOR DL=1 TO 50:NEXT DL
  87. 1840 PRINT P1$;RIGHT$(L1$,S);LEFT$(L1$,F);
  88. 1850 PRINT P2$;RIGHT$(L2$,F);LEFT$(L2$,S);
  89. 1860 :
  90. 1870 IF F=0 THEN F=28:S=1
  91. 1880 F=F-1:S=S+1
  92. 1890 GOTO 1820
  93. 1900 PRINT"[147]"
  94. 2000 FORX=1TO40
  95. 2010 PRINT " ";
  96. 2020 NEXTX
  97. 2030 FORX=1TO22
  98. 2040 PRINT " "SPC(38)" ";
  99. 2050 NEXTX
  100. 2060 FORX=1TO40
  101. 2070 PRINT " ";
  102. 2080 NEXTX
  103. 2090 PRINT "[196]ISKMAGIK ]["
  104. 3000 PRINT "[158][195]REATED [194]Y [212]HE [196]EMON"
  105. 3010 PRINT "[159][207]N [207]CTOBER 2, 1987"
  106. 3020 PRINT "[208]RESS ANY [203]EY [198]OR [205]ENU"
  107. 3030 GETA$:IFA$=""THEN3030
  108. 3031 POKE53280,2
  109. 3900 CLR
  110. 3998 CLR:PRINT "[147]         [159]************************"
  111. 3999 PRINT "         [159]**[196]ISKMAGIK ][ [207]PTIONS[159]**"
  112. 4000 PRINT "         [159]************************"
  113. 4001 PRINT "         [[198]] [198]ORMAT A [196]ISK"
  114. 4002 PRINT "         [[214]] [214]ALIDATE A [196]ISK"
  115. 4003 PRINT "         [[196]] [196]ISK [196]IRECTORY"
  116. 4004 PRINT "         [[201]] [201]NITIALIZE [196]RIVE"
  117. 4005 PRINT "         [[210]] [210]EAD A [211]EQ. [198]ILE"
  118. 4006 PRINT "         [[208]] [208]RINT A [211]EQ. [198]ILE"
  119. 4007 PRINT "         [[206]] [206]EW A [196]ISK ([212]RACK 18)
  120. 4008 [153] "         [(null)]CLOSE(null)CRATCH A ASCILE"
  121. 4009 [153] "         [(null)] (null)NSCRATCH A ASCILE"
  122. 4010 [153] "         [LEN] LENHANGE (null)CREEN LENOLORS"
  123. 4020 [153] "         [LEFT$] STR$ISK LEFT$EADER LENHANGE"
  124. 4030 [153] "         [(null)] STR$ISK RIGHT$.STR$. LENHANGE"
  125. 4040 [153] "         [@] STR$ISK STR$RIVE (null)TATUS"
  126. 4050 [153] "         [*] STR$ISK (null)ROTECTOR"
  127. 4060 [153] "         [#] STR$ISK (null)NPROTECTOR"
  128. 4070 [153] "         [^] (null)RITE (null)ROTECT STR$ECTECTOR"
  129. 4090 [153] "         [(null)] VALXIT STR$ISKMAGIK ]["
  130. 4091 [153] "         [(null)] (null)EST STR$RIVE ATNLIGNMENT"
  131. 4092 [153] "         [!] (null)ENAME A ASCILE"
  132. 5000 [161]CA$:[139]CA$[178]""[167]5000
  133. 5001 [139]CA$[178]"F"[167]6000
  134. 5002 [139]CA$[178]"D"[167]7000
  135. 5003 [139]CA$[178]"I"[167][159]15,8,15,"I":[160]15:[137] 3998
  136. 5004 [139]CA$[178]"R"[167]8000
  137. 5005 [139]CA$[178]"P"[167]9000
  138. 5006 [139]CA$[178]"N"[167]10000
  139. 5007 [139]CA$[178]"S"[167]11000
  140. 5008 [139]CA$[178]"U"[167]10
  141. 5009 [139]CA$[178]"C"[167]13000
  142. 5010 [139]CA$[178]"H"[167]14000
  143. 5011 [139]CA$[178]"M"[167]15000
  144. 5012 [139]CA$[178]"@"[167]16000
  145. 5013 [139]CA$[178]"*"[167]17000
  146. 5014 [139]CA$[178]"#"[167]18000
  147. 5015 [139]CA$[178]"^"[167]19000
  148. 5016 [139]CA$[178]"X"[167]20000
  149. 5017 [139]CA$[178]"T"[167]21000
  150. 5018 [139]CA$[178]"V"[167]22000
  151. 5019 [139]CA$[178]"!"[167]12000
  152. 5020 [137] 5000
  153. 6000 [153] "LOADASCORMAT STR$ISK"
  154. 6001 HD$[178]"":ID$[178]""
  155. 6002 [133] "STR$ISKETTE (null)ITLE";HD$:[139]HD$[178]""[167]3998
  156. 6003 HD$[178][200](HD$,16)
  157. 6004 [133]"STR$ISKETTE RIGHT$STR$";ID$
  158. 6005 [139]ID$[178]""[167]3998
  159. 6006 ID$[178][200](ID$[170]" ",2)
  160. 6007 [153] "RIGHT$NSERT STR$ISK (null)O ASCORMAT AND HIT A (null)EY"
  161. 6008 [161]ET$:[139]ET$[178]""[167]6008
  162. 6009 [153]"LOADASCORMATTING..."
  163. 6010 [159]15,8,15,"N0:"[170]HD$[170]","[170]ID$
  164. 6020 [132]15,A$,B$,C$,D$:[153] "";A$",";B$",";C$",";D$
  165. 6030 [160]15
  166. 6040 [153]"(null)RESS ANY KEY"
  167. 6050 [161]ET$:[139]ET$[178]""[167]6050
  168. 6060 [137] 3900
  169. 7000 [153] "LOAD":P$[178][199](0)
  170. 7001 [159]9,8,0,"$0":[161]#9,K$,K$
  171. 7002 [161]#9,K$,K$:[139]K$[178]""[167][160]9:[137] 7100
  172. 7003 [161]#9,K$,L$:[153][198](K$[170]P$)[170][198](L$[170]P$)[172]256;
  173. 7004 [161]#9,K$:[153]K$;:[139]K$[179][177]""[167]7004
  174. 7005 [153]:[137]7002
  175. 7100 [153]" (null)RESS ANY KEY"
  176. 7101 [161]ET$:[139]ET$[178]""[167]7101
  177. 7102 [137] 3900
  178. 8000 [153] "LOAD(null)EQ ASCILE (null)EADER"
  179. 8001 [153] "(null)AME OF ASCILE (null)O (null)EAD";
  180. 8002 [133] REA$:[139]REA$[178]""[167]3998
  181. 8003 [153]"LOAD":[159]8,8,8,REA$:[129]I[178]0[164]1:[161]#8,A$:I[178]ST:[153]A$;:[130]:[160]8
  182. 8004 [159]15,8,15
  183. 8005 [153] "":[132]15,A$,B$,C$,D$:[153]A$",";B$",";C$","D$
  184. 8006 [160]15
  185. 8007 [153]"(null)RESS ANY KEY"
  186. 8008 [161]ET$:[139]ET$[178]""[167]8008
  187. 8009 [137] 3998
  188. 9000 [153] "LOAD(null)RINT A (null)EQ. ASCILE"
  189. 9001 [153] "(null)AKE SURE THAT THE PRINTER IS TURNED ON"
  190. 9002 [153] "AND THAT THERE IS PAPER IN IT. (null)OU MAY"
  191. 9003 [153] "FIND THE PRINTING PROCESS TO BE QUITE"
  192. 9004 [153] "LONG SO PRINTING LONG DOCUMENTS IS NOT"
  193. 9005 [153] "ADVISED!"
  194. 9006 [133]"(null)AME OF ASCILE (null)O (null)RINT";PR$:[139]PR$[178]""[167]3998
  195. 9007 [159]7,4,7:[153]"LOAD"
  196. 9008 [159]2,8,2,""[170]PR$[170]""
  197. 9009 [161]#2,A$:SS[178]ST:[152]7,A$;:[153]A$;:[139]SS[178]0[167]9009
  198. 9010 [152]7:[160]2
  199. 9011 [160]7
  200. 9012 [159]15,8,15:[132]15,A$,B$,C$,D$
  201. 9013 [153]""
  202. 9014 [153]A$",";B$",";C$",";D$
  203. 9015 [160]15
  204. 9016 [153] "(null)RESS ANY KEY"
  205. 9017 [161]ET$:[139]ET$[178]""[167]9017
  206. 9018 [137] 3900
  207. 10000 [153] "LOAD(null)EW A STR$ISKETTE"
  208. 10001 [153] "(null)HIS IS A ASCAST ASCORMAT AND WILL ONLY"
  209. 10002 [153] "DO CLEAR TRACK 18. (null)NLY USE THIS ON"
  210. 10003 [153] "PREVIOUSLY FORMATTED DISKS."
  211. 10004 [133] "STR$ISKETTE (null)AME";W$
  212. 10005 [139]W$[178]""[167]3998
  213. 10006 [153]"RIGHT$NSERT STR$ISK TO PEEKE (null)EWED AND PRESS A KEY"
  214. 10007 [161]ET$:[139]ET$[178]""[167]10007
  215. 10008 [159]15,8,15
  216. 10009 [152]15,"N0:";W$
  217. 10010 [153]""
  218. 10011 [132]15,A$,B$,C$,D$
  219. 10012 [153]A$",";B$",";C$",";D$
  220. 10013 [160]15
  221. 10014 [153]"(null)RESS ANY KEY"
  222. 10015 [161]ET$:[139]ET$[178]""[167]10015
  223. 10016 [137] 3900
  224. 11000 [153] "LOAD(null)CRATCH ASCILES"
  225. 11001 [153] "(null)RACTCHED ASCILES MAY BE UN-SRATCHED WITH"
  226. 11002 [153] "THIS PROGRAM AS WELL!"
  227. 11003 [133] "ASCILE (null)O PEEKE (null)CRATCHED";SCR$
  228. 11004 [139]SCR$[178]""[167]3998
  229. 11005 [159]15,8,15
  230. 11006 [152]15,"S0:";SCR$
  231. 11007 [153]""
  232. 11008 [132]15,A$,B$,C$,D$:[153]A$",";B$",";C$",";D$
  233. 11009 [160]15:[153]"(null)RESS ANY KEY"
  234. 11010 [161]ET$:[139]ET$[178]""[167]11010
  235. 11011 [137] 3900
  236. 12000 [153]"LOAD(null)ENAME A ASCILE"
  237. 12001 OL$[178]"":[133]"(null)LD ASCILENAME";OL$:[139]OL$[178]""[167]3998
  238. 12002 [139][195](OL$)[177]16[167][153]"16 CHARACTERS ONLY!":[137]12001
  239. 12003 NW$[178]"":[133]"(null)EW ASCILENAME";NW$:[139]NW$[178]""[167]3998
  240. 12004 [139][195](NW$)[177]16[167][153]"16 CHARACTERS ONLY!":[137]12003
  241. 12005 [159]15,8,15:[152]15,"R0:"[170]NW$[170]"="[170]OL$
  242. 12006 [132]15,A$,B$,C$,D$:[153]""[170]A$[170]","[170]B$[170]","[170]C$[170]","[170]D$:[160]15
  243. 12007 [153]"LEFT$IT ANY (null)EY."
  244. 12008 [161]A$:[139]A$[178]""[167]12008
  245. 12009 [137]3998
  246. 13000 [153] "LOADASC1 - PEEKACKGROUND LENOLOUR"
  247. 13001 [153] "ASC3 - ASCOREGROUND LENOLOUR"
  248. 13002 [153] "ASC5 - LENURSOR LENOLOUR"
  249. 13003 [153] "ASC7 - (null)AIN (null)ENU"
  250. 13004 [161]COL$:[139]COL$[178]""[167]13004
  251. 13005 [139]F1[177]15[167]F1[178]0
  252. 13006 [139]F2[177]15[167]F2[178]0
  253. 13007 [139]F3[177]15[167]F3[178]0
  254. 13008 [139]COL$[178]"INPUT"[167][151]53280,F1:F1[178]F1[170]1
  255. 13009 [139]COL$[178]"DIM"[167][151]53281,F2:F2[178]F2[170]1
  256. 13010 [139]COL$[178]"READ"[167][151]646,F3:F3[178]F3[170]1
  257. 13011 [139]COL$[178]"LET"[167]3900
  258. 13012 [137] 13000
  259. 14000 [153]"LOADLENHANGE STR$ISK LEFT$EADER"
  260. 14001 [153]"RIGHT$NSERT STR$ISK (null)O LENHANGE AND LEFT$IT A (null)EY"
  261. 14002 [161]A$:[139]A$[178]""[167]14002
  262. 14003 [159]15,8,15,"I":[159]5,8,5,"#"
  263. 14004 B$[178]"":[152]15,"U1:5,0,18,0":[152]15,"B-P:5,144"
  264. 14005 [129]J[178]1[164]16:[161]#5,A$:A$[178][199]([198](A$[170][199](0))):B$[178]B$[170]A$:[130]
  265. 14006 [153]"LENURRENT LEFT$EADER: "[170]B$
  266. 14007 [133]"(null)EW LEFT$EADER";N$:[139]N$[178]""[167][160]5:[160]15:[137]3998
  267. 14008 [139][195](N$)[177]16[167][153]"16 LENHARACTER (null)AXIMUM!":[137]14007
  268. 14009 [139][195](N$)[179]16[167]N$[178]N$[170][199](160):[137]14009
  269. 14010 [152]15,"B-P:5,144":[152]5,N$:[152]15,"U2:5,0,18,0":[160]5
  270. 14011 [152]15,"I":[132]15,A$,B$,C$,D$:[153]""[170]A$[170]","[170]B$[170]","[170]D$[170]","[170]D$
  271. 14012 [160]15:[153]"LEFT$IT ATNNY (null)EY."
  272. 14013 [161]A$:[139]A$[178]""[167]14013
  273. 14014 [137]3998
  274. 15000 [153]"LOADLENHANGE STR$ISK RIGHT$.STR$."
  275. 15001 [153]"RIGHT$NSERT STR$ISK (null)O LENHANGE AND LEFT$IT A (null)EY"
  276. 15002 [161]A$:[139]A$[178]""[167]15002
  277. 15003 [159]15,8,15,"I":[159]5,8,5,"#":B$[178]""
  278. 15004 [152]15,"U1:5,0,18,0":[152]15,"B-P:5,162"
  279. 15005 [129]J[178]1[164]2:[161]#5,A$:A$[178][199]([198](A$[170][199](0))):B$[178]B$[170]A$:[130]
  280. 15006 [153]"LENURRENT RIGHT$NITIAL: "[170]B$
  281. 15007 [133]"(null)EW RIGHT$NITIAL? --CMDCMDCMDCMD";N$:[139]N$[178]""[167][160]5:[160]15:[137]3998
  282. 15008 [139][195](N$)[179][177]2[167][153]"2 LENHARACTER RIGHT$STR$ (null)LEASE!":N$[178]"":[137]15007
  283. 15009 [152]15,"B-P:5,162":[152]5,N$[170]" 2A":[152]15,"U2:5,0,18,0":[160]5
  284. 15010 [152]15,"I":[132]15,A$,B$,C$,D$:[153]""[170]A$[170]","[170]B$[170]","[170]C$[170]","[170]D$
  285. 15011 [160]15:[153]"LEFT$IT ANY (null)EY."
  286. 15012 [161]A$:[139]A$[178]""[167]15012
  287. 15013 [137]3998
  288. 16000 [153] "LOAD"
  289. 16001 [159]15,8,15:[132]15,A$,B$,C$,D$
  290. 16002 [153]A$",";B$",";C$",";D$
  291. 16003 [153] "(null)RESS ANY KEY":[160]15
  292. 16004 [161]ET$:[139]ET$[178]""[167]16004
  293. 16005 [137] 3900
  294. 17000 [153]"LOAD(null)ROTECT STR$ISK"
  295. 17001 [153]"(null)HIS IS THE SAME AS PUTTING A WRITE"
  296. 17002 [153]"PROTECT TAB ON THE DISK EXCEPT THAT"
  297. 17003 [153]"THE DISK CAN STILL BE FORMATTED"
  298. 17004 [153]"WITHOUT THE ELECTRONIC WRITE PROTECT"
  299. 17005 [153]"REMOVED..."
  300. 17006 [153]"RIGHT$NSERT STR$ISK AND LEFT$IT ANY (null)EY.."
  301. 17007 [161]A$:[139]A$[178]""[167]17007
  302. 17008 [159]15,8,15,"I":[159]2,8,2,"#":[152]15,"U1:";2;0;18;0:[132]15,A$
  303. 17009 [139][197](A$)[177]0[167][152]15,"I":[160]15:[160]2:[137]3998
  304. 17010 [152]15,"B-P:";2;2
  305. 17011 [152]2,[199](1);:[152]15,"U2:";2;0;18;0:[160]2:[152]15,"I":[160]15
  306. 17012 [137]3998
  307. 18000 [153]"LOAD(null)N-(null)RITE (null)ROTECT STR$ISK"
  308. 18001 [153]"LEFT$IT A (null)EY (null)O (null)TART!"
  309. 18002 [161]A$:[139]A$[178]""[167]18002
  310. 18003 [159]15,8,15,"I":[159]2,8,2,"#"
  311. 18004 [152]15,"U1:";2;0;18;0
  312. 18005 [152]15,"B-P:";2;2
  313. 18006 [152]2,[199](65);
  314. 18007 [152]15,"M-W";[199](1);[199](1);[199](1);[199](65)
  315. 18008 [152]15,"M-W";[199](2);[199](7);[199](1);[199](65)
  316. 18009 [152]15,"U2:";2;0;18;0
  317. 18010 [160]2:[152]15,"I":[160]15:[137]3998
  318. 19000 [153] "LOAD(null)RITE (null)ROTECT STR$ETECTOR"
  319. 19001 [153] "(null)HIS WILL TELL IF A DISK HAS BEEN"
  320. 19002 [153] "ELECTRONICALLY WRITE PROTECTED. RIGHT$F IT"
  321. 19003 [153] "IS AND YOU WISH TO UN-PROTECT IT THEN"
  322. 19004 [153] "JUST USE THE UN-PROTECTOR ON THIS"
  323. 19005 [153] "PROGRAM."
  324. 19006 [153] "RIGHT$NSERT STR$ISK AND (null)RESS A (null)EY"
  325. 19007 [161]ET$:[139]ET$[178]""[167]19007
  326. 19008 [159]15,8,15
  327. 19009 [152]15,"M-R"[199](0)[199](28)
  328. 19010 [161]#15,L$:L[178][198](L$[170][199](0))[175]16
  329. 19011 [139]L[178]0[167][153]"STR$ISK IS SYS(null)ROTECTED!":[160]15:[137] 19013
  330. 19012 [153] "STR$ISK IS SYS(null)N-(null)ROTECTED!":[160]15
  331. 19013 [153] "(null)RESS ANY KEY"
  332. 19014 [161]ET$:[139]ET$[178]""[167]19014
  333. 19015 [137] 3900
  334. 20000 [129]A[178]1[164]1000:[130]A
  335. 20001 [153] "LOAD(null)UPERSTR$ISK ]["
  336. 20002 [153] "PEEKY (null)HE STR$EMON"
  337. 20003 [153] "(LEN) 1987 STR$EMONSOFT"
  338. 20004 [162]
  339. 21000 [153] "LOADSTR$RIVE ATNLIGNMENT (null)EST"
  340. 21001 [153] "LEFT$AVE A GOOD QUALITY DISK IN THE DRIVE"
  341. 21002 [153] "AND PRESS (null)VAL(null)(null)(null)(null) TO BEGIN."
  342. 21003 [161]TS$:[139]TS$[179][177][199](13)[167]21003
  343. 21004 [153] "LOAD(null)ESTING..."
  344. 21005 [159]15,8,15:[159]2,8,2,"#"
  345. 21006 [152]15,"M-W"[199](0)[199](0)[199](1)[199](192)
  346. 21007 T[178]35
  347. 21008 T$[178][196](T)
  348. 21009 [152]15,"U1: 2 0"T"9"
  349. 21010 [141] 21019
  350. 21011 [152]15,"U1: 2 0 1 9"
  351. 21012 T$[178][196](1)
  352. 21013 [141] 21019
  353. 21014 T[178]T[171]1:[139]T[177]0[167]21008
  354. 21015 [160]2:[160]15:[153]"LOADSTR$RIVE LEFT$AS (null)ASSED (null)EST!"
  355. 21016 [153] "(null)RESS ANY KEY."
  356. 21017 [161]ET$:[139]ET$[178]""[167]21017
  357. 21018 [137] 3900
  358. 21019 [153]"(null)EADING (null)RACK #";T$,
  359. 21020 [132]15,A$,B$,C$,D$
  360. 21021 [153]A$",";B$",";C$",";D$
  361. 21022 [139][197](A$)[179]2[167][142]
  362. 21023 [153]"LOADSTR$RIVE (null)UT OF ATNLIGNMENT!"
  363. 21024 [160]2:[160]15
  364. 21025 [153] "(null)RESS ANY KEY"
  365. 21026 [161]ET$:[139]ET$[178]""[167]21026
  366. 21027 [137] 3900
  367. 22000 [153] "LOAD(null)ALIDATING STR$ISK..."
  368. 22001 [159]15,8,15,"V0"
  369. 22002 [153]""
  370. 22003 [132]15,A$,B$,C$,D$
  371. 22004 [153]A$",";B$",";C$",";D$
  372. 22005 [160]15
  373. 22006 [153]"(null)RESS ANY KEY"
  374. 22007 [161]ET$:[139]ET$[178]""[167]22007
  375. 22008 [137] 3900
  376.